
(sample-function sin 0 two-pi 0.1)	;

(sample-function-n sin 0 two-pi 128) ;

(log10 0)				; => ERROR

(map hypotenuse
     '(2 3) '(6 5))			; => (6.324555320336759 5.830951894845301)

(map hypotenuse-approximate 
     '(2 3) '(6 5))			; => (7.17157287525381 6.757359312880714)

(map polar->rectangular
     `((0 1) (,(/ pi 4) 1) (,(/ pi 2) 1) (,pi 1)))

(map rectangular->polar
     `((1 0) (,(cos (/ pi 4)) ,(sin (/ pi 4))) (0 1) (-1 0)))

(modulo 8 3)				; => 2
(modulo 7 4)				; => 3
(exact->inexact (/ 7 4)
(* 0.75 4)

(map (+n 6) '(1 2 3))			; => (7 8 9)

(map factorial '(3 5 9))		; => (6 120 362880)

(map combinations 
     '(6 12 32)
     '(2 3  4))				; => (15 220 35960)

(map permutations 
     '(6 12 32)
     '(2 3  4))				; => (30 1320 863040)
